10 IFA=0 THEN POKE648,4:GOSUB53030 100 IFA=0THENA=1:LOAD"SPRITES",8,1 110 IFA=1THENA=2:LOAD"CHARS",8,1 120 PRINT" PRESS ANY KEY WHEN READY TO CONTINUE" 130 GETA$:IFA$=""THEN130 500 QO$="[151]@ABCD[157][157][157][157][157]EFGHI[157][157][157][157][157]JKLMN[157][157][157][157][157]OPQRS" 501 Q1$="[151]TUVWX[157][157][157][157][157]YZ[\][157][157][157][157][157]^_!"+CHR$(34):Q2$="#[157][157][157][157][157]$%&'(" 502 NO$="[151])*+,[157][157][157][157]-./0[157][157][157][157]1234" 503 NR$="[151]5678[157][157][157][157]9:;<[157][157][157][157]=>[192][193]" 504 PO$="[149][194][195][196][197][157][157][157][157][198][199][200][201][157][157][157][157][202][203][204][205]" 505 PR$="[149][206][207][208][209][157][157][157][157][210][211][212][213][157][157][157][157][214][215][216][217]" 506 DO$="[151][218][219][220][221][157][157][157][157][255][160][161][162][157][157][157][157][163][164][165][166]" 507 DR$="[151][170][171][172][173][157][157][157][157][174][175][176][177][157][157][157][157][178][179][165][181]" 508 POKE648,200:PRINT"[147]  PLEASE WAIT...":POKE648,4 1005 SM=51200:V=53248:PRINT"[147]":POKE53280,9:POKE53281,15 1006 POKE53272,(PEEK(53272)AND240)OR0 1007 POKE56578,PEEK(56578)OR3 1008 POKE56576,(PEEK(56576)AND252)OR0 1009 POKE53272,(PEEK(53272)AND15)OR32 1011 PRINT"[147] THE SCREEN HAS BEEN MOVED." 1012 PRINT" TO GET THINGS BACK TO NORMAL YOU" 1013 PRINT" NEED TO TYPE POKE648,4 AND PRESS" 1014 PRINT" RETURN. YOU WILL NOT SEE A CURSOR" 1015 PRINT" OR WHAT YOU ARE TYPING.":POKE648,200 1020 GOSUB 51000 : REM SPRITE INITIALIZE 1025 GOSUB53000:REM SOUND 1043 REM GOSUB41300:REM SONG 1050 GOSUB12000:REM SELECT SKILL 1060 GOSUB13000:IFBG=1THEN1050:REM SELECT LEVEL 1065 FORPB=1TO10:TR=-1 1070 GOSUB14000:REM SELECT COIN SET 1080 ONSKGOSUB15000,20000,25000:REM SKILL SECTIONS 1083 IFTRTHENGOSUB35000:REM RE-INFORCE CORRECT PROBLEM 1084 NEXT 1085 GOSUB36000:REM REPORT SCORES 1090 IFIN$="P"THENSC=0:GOTO1050 1095 GOSUB62000:GOTO1085 10000 : 10001 REM ***PROGRAM FLOW SUBROUTINES*** 11000 : 11001 REM TITLE PAGE 12000 : 12001 REM SELECT SKILL 12005 GOSUB41000:REM BUILD STORE 12010 PR$(0)="WHAT SKILL SHALL WE":PR$(1)="PRACTICE?" 12015 PR$(2)="PRESS 1, 2, 3 OR Q." 12020 GOSUB44000:REM PRINT PROMPT 12025 PRINT"[144]1. NAME AND TELL VALUE OF ONE COIN. 12030 [153]"2. TELL VALUE OF A GROUP OF COINS" 12035 [153]"THAT ARE ALL THE SAME KIND." 12040 [153]"3. TELL THE VALUE OF A MIXED GROUP" 12045 [153]"OF COINS." 12046 [153]"Q. QUIT TO LOADSTAR." 12060 [153]"1 IS EASIEST - 3 IS HARDEST " 12100 [151]198,0 12103 [161]IN$:[139]IN$[178]""[167]12103 12104 [139] IN$[178]"Q" [167] [141] 62000:[137] 12025 12105 [139]IN$[179]"1"[176]IN$[177]"3"[167][141]49050:[137]12100:[143] WRONG SOUND 12110 SK[178][197](IN$) 12115 [141]49000:[143] RIGHT SOUND 12999 [142] 13000 BG[178]0 13001 [143] SELECT LEVEL 13005 [141]41000:[143] BUILD STORE 13010 PR$(0)[178]"WHAT COINS SHALL WE":PR$(1)[178]"WORK WITH?" 13015 PR$(2)[178]"PRESS 1, 2, 3 OR Q." 13020 [141]44000:[143] PRINT PROMPT 13025 [153]"1. NICKELS AND PENNIES" 13030 [153]"2. DIMES, NICKELS AND PENNIES" 13035 [153]"3. QUARTERS, DIMES, NICKELS AND" 13040 [153]"PENNIES" 13041 [153]"Q. QUIT TO PREVIOUS MENU." 13100 [151]198,0 13103 [161]IN$:[139]IN$[178]""[167]13103 13104 [139] IN$[178]"Q" [167] BG[178]1:[142] 13105 [139]IN$[179]"1"[176]IN$[177]"3"[167][141]49050:[137]13100:[143] WRONG SOUND 13110 LV[178][197](IN$) 13115 [141]49000:[143] RIGHT SOUND 13999 [142] 14000 : 14001 [143] CHOOSE COIN SET 14005 [129]C2[178]0[164]3:CN(C2)[178]0:[130] 14010 [145]SK[141]14100,14200,14300 14015 CT[178]CN(0)[170]CN(1)[170]CN(2)[170]CN(3) 14020 [139]CT[178]0[176]CT[177]14[167]14000 14025 [129]D2[178]0[164]3:CS(D2)[178]CN(D2):[130]:TS[178]CT 14030 [142] 14100 : 14101 [143] SKILL 1 COIN 14105 CN([181]([187](1)[172](LV[170]1)))[178]1 14110 [142] 14200 : 14201 [143] SKILL 2 COINS 14205 CN([181]([187](1)[172](LV[170]1)))[178][181]([187](1)[172]3)[170]2 14210 [142] 14300 : 14301 [143] SKILL 3 & 4 COINS 14305 [129]C3[178]0[164]LV 14310 CN(C3)[178][181]([187](1)[172]5) 14315 [130] 14325 [142] 14700 : 14701 [143] WAIT SCREEN 14705 [151]53280,3:[151]53281,3:[153][199](142) 15000 : 15001 [143] SKILL:NAME AND GIVE VALUE OF SINGLE COIN 15020 [141]41000:[143] BUILD STORE 15030 [141]45000:[143] PLACE COIN SUBSET 15050 [141]15500:[143] ASK NAME OF COIN 15080 [139][168]RW[167]TR[178]0:[141]16000:[137]15020:[143] WRONG 15085 [141]49000:[143] RIGHT SOUND 15090 [141]16500:[143] ASK VALUE OF COIN 15105 [141]48500:[143] CHECK VALUE 15110 [139][168]RW[167]TR[178]0:[141]17000:[137]15020:[143] WRONG 15115 [141]49000:[143] RIGHT SOUND 15249 [142] 15500 : 15501 [143] ASK NAME OF COIN 15505 PR$(0)[178]"WHAT DO WE CALL THIS":PR$(1)[178]"COIN? (RETURN QUITS)":PR$(2)[178]"" 15510 [141]44000:[143] PRINT PROMPTS 15515 [153]"ON"; 15520 [141]46000:[139]AN$[178]""[167] [141] 63000 15525 [145]C5[170]1[141]15550,15600,15650,15700 15530 [142] 15550 : 15551 [143] PENNY OR CENT 15555 SE$[178]"PEN":[141]47000:[139]RW[167]15599 15560 SE$[178]"CENT":[141]47000:[139]RW[167]15599 15565 SE$[178]"SENT":[141]47000 15599 [142] 15600 : 15601 [143] NICKEL 15605 SE$[178]"NIC":[141]47000:[139]RW[167]15649 15610 SE$[178]"NIK":[141]47000 15649 [142] 15650 : 15651 [143] DIME 15655 SE$[178]"DIM":[141]47000:[142] 15700 : 15701 [143] QUARTER 15705 SE$[178]"Q":[141]47000:[139]RW[178][171]1[167]15720 15710 SE$[178]"KW":[141]47000:[139]RW[178][171]1[167]15720 15715 SE$[178]"CW":[141]47000 15720 [139][168]RW[167]15730 15725 SE$[178]"TER":[141]47000 15730 [142] 16000 : 16001 [143] IF NAME INCORRECT 16003 [141]49050:[143] WRONG SOUND 16005 [141]41000:[143] BUILD SHOP 16010 SP[178]692:[145]C5[170]1[141]42500,42300,42700,42100 16015 SP[178]699:[145]C5[170]1[141]42600,42400,42800,42200 16020 PR$(0)[178]"NO, THIS IS CALLED":PR$(2)[178]"PRESS KEY TO TRY AGAIN." 16025 [139]C5[178]0[167]PR$(1)[178]"A PENNY OR CENT." 16030 [139]C5[178]1[167]PR$(1)[178]"A NICKEL." 16035 [139]C5[178]2[167]PR$(1)[178]"A DIME." 16040 [139]C5[178]3[167]PR$(1)[178]"A QUARTER." 16045 [141]44000:[143] PRINT PROMPTS 16050 [161]IN$:[139]IN$[178]""[167]16050 16055 [142] 16500 : 16501 [143] ASK VALUE OF COIN 16505 PR$(0)[178]"THAT'S RIGHT!":PR$(1)[178]"NOW TELL ME WHAT IT'S":PR$(2)[178]"WORTH." 16510 [141]44000:[143] PRINT PROMPTS 16515 [141]48000:[143] INPUT VALUE 16525 [142] 17000 : 17001 [143] IF VALUE INCORRECT 17003 [141]49050:[143] WRONG SOUND 17005 [141]41000:[143] BUILD SHOP 17010 SP[178]692:[145]C5[170]1[141]42500,42300,42700,42100 17015 SP[178]699:[145]C5[170]1[141]42600,42400,42800,42200 17020 [139]C5[178]0[167]PR$(0)[178]"NO, A PENNY OR CENT IS":PR$(1)[178]"WORTH ONE CENT." 17025 [139]C5[178]0[167]PR$(2)[178]"1^ $.01 $0.01" 17030 [139]C5[178]1[167]PR$(0)[178]"NO, A NICKEL IS":PR$(1)[178]"WORTH FIVE CENTS." 17035 [139]C5[178]1[167]PR$(2)[178]"5^ $.05 $0.05" 17040 [139]C5[178]2[167]PR$(0)[178]"NO, A DIME IS":PR$(1)[178]"WORTH TEN CENTS." 17045 [139]C5[178]2[167]PR$(2)[178]"10^ $.10 $0.10" 17050 [139]C5[178]3[167]PR$(0)[178]"NO, A QUARTER IS WORTH":PR$(1)[178]"TWENTY-FIVE CENTS." 17055 [139]C5[178]3[167]PR$(2)[178]"25^ $.25 $0.25" 17060 [141]44000:[143] PRINT PROMPTS 17065 [161]IN$:[139]IN$[178]""[167]17065 17070 [142] 20000 : 20001 [143] SKILL: GIVE VALUE OF SET OF LIKE COINS 20020 [141]41000:[143] BUILD STORE 20030 [141]45000:[143] PLACE COIN SUBSET 20040 [141]21500:[143] ASK VALUE 20050 [141]48500:[143] CHECK VALUE 20060 [139][168]RW[167]TR[178]0:[141]49050:[141]22000:[137]20000:[143] WRONG 20065 [141]49000:[143] RIGHT SOUND 20249 [142] 21500 : 21501 [143] ASK FOR VALUE 21505 PR$(0)[178]"WHAT ARE THESE COINS":PR$(1)[178]"WORTH ALL TOGETHER?":PR$(2)[178]"" 21507 [139]TS[178]1[167]PR$(0)[178]"WHAT IS THIS":PR$(1)[178]"COIN WORTH?" 21510 [141]44000:[143] PRINT PROMPTS 21515 [141]48000:[143] INPUT VALUE 21525 [142] 22000 : 22001 [143] IF VALUE INCORRECT 22005 PR$(0)[178]"NO.":PR$(1)[178]"PRESS A KEY AND WE'LL":PR$(2)[178]"TRY SOMETHING EASIER." 22010 [141]44000:[143] PRINT PROMPT 22015 [161]IN$:[139]IN$[178]""[167]22015 22020 [129]D1[178]0[164]3:CH(D1)[178]CS(D1):[130] 22025 [129]D2[178]0[164]3 22030 [139]CH(D2)[178]0[167]22050 22035 CS(D2)[178]1 22040 [141]15000:[143] GO TO SKILL 1 22050 [130] 22055 [129]D1[178]0[164]3:CS(D1)[178]CH(D1):[130] 22060 [142] 25000 : 25001 [143] SKILL: GIVE VALUE OF SET OF MIXED COINS 25005 [141]41000:[143] BUILD STORE 25010 [141]45000:[143] PLACE COIN SET 25020 [141]25500:[143] ASK VALUE 25025 [141]48500:[143] CHECK VALUE 25055 [139][168]RW[167]TR[178]0:[141]49050:[141]26000:[137]25000:[143] WRONG 25060 [141]49000:[143] RIGHT SOUND 25249 [142] 25500 : 25501 [143] ASK VALUE 25505 PR$(0)[178]"WHAT ARE THESE COINS":PR$(1)[178]"WORTH ALL TOGETHER?":PR$(2)[178]"" 25507 [139]TS[178]1[167]PR$(0)[178]"WHAT IS THIS":PR$(1)[178]"COIN WORTH?" 25510 [141]44000:[143] PRINT PROMPTS 25515 [141]48000:[143] INPUT VALUE 25525 [142] 26000 : 26001 [143] IF VALUE INCORRECT 26005 PR$(0)[178]"NO, THAT'S NOT RIGHT.":PR$(1)[178]"PRESS A KEY AND WE'LL" 26010 PR$(2)[178]"TRY A DIFFERENT WAY." 26015 [141]44000:[143] PRINT PROMPT 26020 [161]IN$:[139]IN$[178]""[167]26020 26025 [129]D1[178]0[164]3:CB(D1)[178]CS(D1):[130] 26030 [129]D3[178]3[164]0[169][171]1 26035 [139]CB(D3)[178]0[167]26050 26036 [129]D1[178]0[164]3:CS(D1)[178]0:[130]:CS(D3)[178]CB(D3) 26037 TS[178]CS(D3) 26040 [141]20000:[143] GO TO SKILL 2 26050 [130] 26055 [129]D1[178]0[164]3:CS(D1)[178]CB(D1):[130] 26060 [142] 35000 : 35001 [143] RE-INFORCE CORRECT PROBLEM 35005 SC[178]SC[170]1 35010 PR$(0)[178]"YOU ARE":PR$(1)[178]"ABSOLUTELY" 35015 PR$(2)[178]"RIGHT!" 35020 [141]44000:[143] PRINT PROMPT 35025 [129]D1[178]0[164]24:[151]K[170]D1,0:[130] 35030 [151]VL,15 35035 [151]S1,240:[151]S2,240:[151]W1,16:[151]W2,16 35040 [129]D1[178]679[164]727:[161]A$:[139]A$[179][177]""[167] D1[178]727 35045 HI[178][181]([194](D1)[173]16):LO[178][194](D1)[171]16[172]HI 35050 [139]HI[179]15[167][151]W1,16:[151]H1,NT(0,HI):[151]L1,NT(1,HI):[151]W1,17 35055 [139]LO[179]15[167][151]W2,16:[151]H2,NT(0,LO):[151]L2,NT(1,LO):[151]W2,17 35060 [129]C1[178]1[164]30:[130]:[151]SM[170]1016,49:[151]SM[170]1017,51:[151]SM[170]1018,53 35063 [129]C1[178]1[164]30:[130]:[151]SM[170]1016,48:[151]SM[170]1017,50:[151]SM[170]1018,52 35065 [130]:[151]VL,0:[142] 36000 : 36001 [143] REPORT SCORES 36005 PR$(0)[178]"YOU GOT"[170][196](SC)[170]" OUT OF 10.":PR$(1)[178]"PRESS P TO PLAY AGAIN." 36010 PR$(2)[178]"PRESS Q TO QUIT" 36020 [141]44000:[143] PRINT PROMPT 36025 [151]198,0 36030 [161]IN$:[139]IN$[179][177]"P"[175]IN$[179][177]"Q"[167]36030 36035 [142] 40000 : 40001 [143] ***GENERAL SUBROUTINES*** 41000 : 41001 [143] BUILD SHOP 41005 [151]V[170]21,7 41020 [153]"LOAD(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$ VERIFY(null)LENRIGHT$ ANDAND (null)LENRIGHT$ (null)" 41030 [153]"PEEK"[166]23)"PEEK VERIFYPEEKDEFSPC(SPC(VERIFY(null) (null)DEFSPC(SPC(VERIFYPEEK PEEK" 41040 [153]"PEEK"[166]23)"PEEK VERIFYMID$LEN(null)POS POS(null)LEN(null) MID$RIGHT$" 41050 [153]"PEEK"[166]23)"PEEK VERIFYTHEN (null) (null) VERIFYFN PEEK" 41060 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null) VERIFYTHEN FN (null)LEN(null)" 41070 [153][163]28)"(null)(null)DEFMID$(null)VERIFY(null)(null) PEEK" 41080 [153][163]27)"ANDANDSGN(null)(null)VERIFY+ANDAND MID$LENLENRIGHT$"; 41100 [153][166]26)"+ (null)ANDAND(null) (null) PEEK"; 41110 [153][166]24)"STOPANDANDSQRSQRANDANDANDANDAND VERIFY(null)(null)(null) PEEK"; 41120 [153][166]23)"STOP+ TOTOTOTOTOTO SGNSGN VERIFY(null)(null)(null)LEN(null)"; 41130 [153][166]23)"STOP+THEN SGNSGNSGN VERIFY(null)(null)+" 41140 [153][166]23)"STOP+ TAB(TAB(TAB(TAB(TAB(TAB( SGN(null)VERIFY(null)(null) (null)" 41150 [153]" FREFREFREFREFREFRE FREFREFREFREFREFRE FREFREFREFREFREFRE STOP+THE TOYSTOPSGN (null)VERIFYUSR(null)(null)" 41160 [153][166]23)"STOP+ STORE STOPSGN + VERIFY(null)(null)" 41170 [153][166]23)"STOP+ SGN +VERIFY(null)(null)" 41180 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$" 41190 [129]CT[178]0[164]7:[153]"(null) PEEK":[130] 41200 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"; 41205 [142] 41300 : 41301 [143] PLAY SONG 41303 [129]D1[178]0[164]24:[151]K[170]D1,0:[130] 41305 [151]VL,15 41310 [151]S1,240:[151]S2,240:[151]W1,16:[151]W2,16 41315 [129]D1[178]679[164]727:[161]A$:[139]A$[179][177]""[167] [151]VL,.:[142] 41320 HI[178][181]([194](D1)[173]16):LO[178][194](D1)[171]16[172]HI 41325 [139]HI[179]15[167][151]W1,16:[151]H1,NT(0,HI):[151]L1,NT(1,HI):[151]W1,17 41330 [139]LO[179]15[167][151]W2,16:[151]H2,NT(0,LO):[151]L2,NT(1,LO):[151]W2,17 41335 [129]C1[178]1[164]100:[130] 41340 [130]:[151]VL,0:[142] 42000 : 42001 [143] PRINT COINS 42100 : 42101 [143] QUARTER OBVERSE 42110 [141]43000:[151]783,[194](783)[175]254 42120 [151]781,RW 42130 [151]782,CM 42135 [158]58634:[153]QO$ 42140 [142] 42200 : 42201 [143] QUARTER REVERSE 42210 [141]43000:[151]783,[194](783)[175]254 42220 [151]781,RW 42230 [151]782,CM 42235 [158]58634:[153]Q1$;:[151]212,.:[153]Q2$ 42240 [142] 42300 : 42301 [143] NICKEL OBVERSE 42310 [141]43000:[151]783,[194](783)[175]254 42320 [151]781,RW 42330 [151]782,CM 42335 [158]58634:[153]NO$ 42340 [142] 42400 : 42401 [143] NICKEL REVERSE 42410 [141]43000:[151]783,[194](783)[175]254 42420 [151]781,RW 42430 [151]782,CM 42435 [158]58634:[153]NR$ 42440 [142] 42500 : 42501 [143] PENNY OBVERSE 42510 [141]43000:[151]783,[194](783)[175]254 42520 [151]781,RW 42530 [151]782,CM 42535 [158]58634:[153]PO$ 42540 [142] 42600 : 42601 [143] PENNY REVERSE 42610 [141]43000:[151]783,[194](783)[175]254 42620 [151]781,RW 42630 [151]782,CM 42635 [158]58634:[153]PR$ 42640 [142] 42700 : 42701 [143] DIME OBVERSE 42710 [141]43000:[151]783,[194](783)[175]254 42720 [151]781,RW 42730 [151]782,CM 42735 [158]58634:[153]DO$ 42740 [142] 42800 : 42801 [143] DIME REVERSE 42810 [141]43000:[151]783,[194](783)[175]254 42820 [151]781,RW 42830 [151]782,CM 42835 [158]58634:[153]DR$ 42840 [142] 43000 : 43001 [143] BREAK DOWN SP TO HI&LO 43005 RW[178][181](SP[173]40) 43006 CM[178]SP[171]RW[172]40 43010 [142] 43011 : 44000 : 44001 [143] PROMPT PRINT 44005 [153]"STOP" 44010 [129]C1[178]0[164]2 44013 [153]" ON" 44015 [153][163]13[171][195](PR$(C1))[173]2)PR$(C1) 44020 [130]:[142] 45000 : 45001 [143] PLACE COINS 45005 [129]C1[178]0[164]3:PH(C1)[178]CS(C1):[130] 45010 C5[178][181]([187](0)[172](LV[170]1)):[139]PH(C5)[178]0[167]45010 45015 PH(C5)[178]PH(C5)[171]1 45020 [139][194](697[170]SM)[178]32[167]SP[178]657:[137]45100 45025 [139][194](857[170]SM)[178]32[167]SP[178]817:[137]45100 45030 [139][194](702[170]SM)[178]32[167]SP[178]662:[137]45100 45035 [139][194](862[170]SM)[178]32[167]SP[178]822:[137]45100 45040 [139][194](692[170]SM)[178]32[167]SP[178]652:[137]45100 45045 [139][194](852[170]SM)[178]32[167]SP[178]812:[137]45100 45050 [139][194](707[170]SM)[178]32[167]SP[178]667:[137]45100 45055 [139][194](867[170]SM)[178]32[167]SP[178]827:[137]45100 45060 [139][194](687[170]SM)[178]32[167]SP[178]647:[137]45100 45065 [139][194](847[170]SM)[178]32[167]SP[178]807:[137]45100 45070 [139][194](712[170]SM)[178]32[167]SP[178]672:[137]45100 45075 [139][194](872[170]SM)[178]32[167]SP[178]832:[137]45100 45080 [139][194](682[170]SM)[178]32[167]SP[178]642:[137]45100 45085 SP[178]802 45100 [139]C5[178]0[167][145][181]([187](1)[172]2)[170]1[141]42500,42600:[137]45150:[143] PRINT PENNEY 45105 [139]C5[178]1[167][145][181]([187](1)[172]2)[170]1[141]42300,42400:[137]45150:[143] PRINT NICKLE 45110 [139]C5[178]2[167][145][181]([187](1)[172]2)[170]1[141]42700,42800:[137]45150:[143] PRINT DIME 45115 [145][181]([187](1)[172]2)[170]1[141]42100,42200:[137]45150:[143] PRINT QUARTER 45150 [139](PH(0)[170]PH(1)[170]PH(2)[170]PH(3)[177]0)[167]45010 45199 [142] 46000 : 46001 [143] STRING INPUT 46010 AN$[178]"":[153]" TOCMD"; 46015 [161]IN$:[139]IN$[178]""[167]46015 46016 [139]IN$[178][199](13)[175]AN$[178]""[167][141]63000:[141]45000:[141]44000:[153]"ON";:[137]46000 46017 [139]AN$[178]""[167]46030 46020 [139]IN$[178][199](13)[167][142] 46025 [139]IN$[178][199](20)[176]IN$[178][199](157)[167][141]46800:[143] DELETE 46030 [139][195](AN$)[178]12[176][198](IN$)[179]32[176][198](IN$)[177]90[167]46015 46035 AN$[178]AN$[170]IN$ 46040 [153]IN$;"TOCMD"; 46045 [137]46015 46800 : 46801 [143] DELETE 46805 [139]AN$[178]""[167]46899 46815 AN$[178][200](AN$,[195](AN$)[171]1) 46820 [153]" CMDCMD CMDTOCMD"; 46899 [142] 47000 : 47001 [143] STRING SEARCH 47005 RW[178]0:[139][195](SE$)[177][195](AN$)[167]47099 47010 [129]C7[178]1[164]1[170][195](AN$)[171][195](SE$) 47015 [139][202](AN$,C7,[195](SE$))[178]SE$[167]RW[178][171]1 47020 [130] 47099 [142] 48000 [151]214,23:[153]:[153]" USE \ FOR ^ "; 48001 [143] VALUE INPUTS 48005 [153]""[163]25)""; 48010 AN$[178]"":PN$[178]"":[153]"TOCMD"; 48015 [161]IN$:[139]IN$[178]""[167]48015 48016 [139]IN$[178][199](13)[175]AN$[178]""[167][141] 63000:[141]45000:[141]44000:[137]48000 48017 [139]AN$[178]""[167]48030 48020 [139]IN$[178][199](13)[167]48060 48025 [139]IN$[178][199](20)[176]IN$[178][199](157)[167][141]48100:[143] DELETE 48030 [139][195](AN$)[178]5[167]48015 48033 [139](IN$[179]"0"[176]IN$[177]"9")[175]IN$[179][177]"$"[175]IN$[179][177]"."[175]IN$[179][177]"^"[167][137]48015 48035 AN$[178]AN$[170]IN$ 48040 [153]IN$;"TOCMD"; 48045 [139][198](IN$)[177]47[175][198](IN$)[179]58[167]IN$[178]"#" 48050 PN$[178]PN$[170]IN$ 48055 [137]48015 48060 : 48061 [139]PN$[178]"$#.##"[176]PN$[178]"$.##"[176]PN$[178]"##^"[176]PN$[178]"#^"[167][142] 48070 [141]49050:[141]48400:[137]48000 48100 : 48101 [143] DELETE 48105 [139]AN$[178]""[167]48199 48115 AN$[178][200](AN$,[195](AN$)[171]1):PN$[178][200](PN$,[195](PN$)[171]1) 48120 [153]" CMDCMDTOCMD"; 48199 [142] 48400 : 48401 [143] INCORRECT PATTERN 48405 [153]""[163]26)" " 48410 PR$(0)[178]"MAKE YOUR ANSWER LOOK":PR$(1)[178]"LIKE ONE OF THESE." 48415 PR$(2)[178]"5^ 42^ $.76 $1.05" 48420 [141]44000:[143] PRINT PROMPT 48425 [142] 48500 : 48501 [143] CHECK VALUE 48505 RW[178]0 48510 SV[178][181](CS(3)[172]25[170]CS(2)[172]10[170]CS(1)[172]5[170]CS(0)[170].5) 48515 [139][200](AN$,1)[178]"$"[175][181]([197]([202](AN$,2))[172]100[170].5)[178]SV[167]RW[178][171]1 48520 [139][201](AN$,1)[178]"^"[175][181]([197]([200](AN$,[195](AN$)[171]1))[170].5)[178]SV[167]RW[178][171]1 48525 [142] 49000 : 49001 [143] RIGHT SOUND 49005 [151]P1,8:[151]H1,70:[151]A1,9:[151]S1,249:[151]VL,15:[151]W1,65:[151]W1,64 49010 [129]D1[178]1[164]500:[130] 49015 [129]D1[178]15[164]0[169][171]1:[151]VL,D1:[130]:[142] 49050 : 49051 [143] WRONG SOUND 49055 [151]H1,5:[151]A1,9:[151]S1,249:[151]VL,15:[151]W1,33:[151]W1,32 49060 [129]D1[178]1[164]100:[130] 49065 [129]D1[178]15[164]0[169][171]1:[151]VL,D1:[130]:[142] 50000 : 50001 [143] ***INITIALIZING SUBROUTINES*** 51000 [151]SM[170]1016,48:[151]SM[170]1017,50:[151]SM[170]1018,52 51001 [151]V[170]39,9:[151]V[170]40,5:[151][170]41,12 51002 [151]V,52:[151]V[170]2,97:[151]V[170]4,164 51003 [151]V[170]1,104:[151]V[170]3,125:[151]V[170]5,104 51004 [151]V[170]29,2:[151]V[170]23,5:[151]V[170]28,7:[151]V[170]37,0:[151]V[170]38,2 51005 [142] 53000 : 53001 [143] SOUND 53002 [129]C1[178]1[164]10:[129]C2[178]0[164]1:[135]NT(C2,C1):[130]:[130] 53005 [129]D1[178]0[164]47:[135]D2:[151]679[170]D1,D2:[130] 53010 K[178]54272:[129]D1[178]0[164]24:[151]K[170]D1,0:[130] 53015 L1[178]K:H1[178]K[170]1:P1[178]K[170]3:A1[178]K[170]5:S1[178]K[170]6:L2[178]K[170]7:H2[178]K[170]8:P2[178]K[170]10:W2[178]K[170]11:A2[178]K[170]12 53020 S2[178]K[170]13:L3[178]K[170]14:H3[178]K[170]15:P3[178]K[170]17:W3[178]K[170]18:A3[178]K[170]19:S3[178]K[170]20:VL[178]K[170]24:W1[178]K[170]4 53021 [142] 53030 [153][199](142):[143] TITLE SCREEN 53031 [151]53280,14:[151]53281,1:[153]"LOADWAIT VERIFY(null)LENRIGHT$ ANDAND (null)LENRIGHT$" 53041 [153]" bDEFSPC(SPC(VERIFYn mDEFSPC(SPC(VERIFYb" 53051 [153]" STOPL O A D S T A R VERIFYjcnPOS POSmck" 53061 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( VERIFYTHEN q q VERIFYFN" 53071 [153]" CONTPROUDLY PRESENTS VERIFYTHEN FN" 53081 [153]" mnDEFjkVERIFYmn" 53091 [153]" PRINT#THE VERIFYSGNmnVERIFY+" 53101 [153]" TOANDPOSCONTT O Y S T O R EPOSANDTO VERIFYu``mANDANDn``i" 53111 [153]" TAB(USRFREDEFBY MARK SULLIVANFREUSRTAB( VERIFY}* }ui" 53121 [153]" OPEN(C) 1988 STOP+PRINT# LIST WAIT VERIFY}}}k" 53131 [153]"u``````````````````````iSTOP+PRINT# STOPWAIT$9.95PRINT# LIST VERIFYWAIT`k}ji" 53141 [153]"} }STOP+PRINT# LIST VERIFYWAIT=kuk" 53151 [153]"} DEF``` LISTWELCOME TO DEF```` }STOP+PRINT# LIST VERIFYWAITji}" 53161 [153]"} }STOP+PRINT# LIST VERIFYWAIT-k" 53171 [153]"} PRINT#THE TOY STORE }STOP+PRINT# LIST VERIFYWAITEXP" 53181 [153]"} jcccccccccccc`ci" 53191 [153]"} CONT```````````````````` ``````````````^WAIT}" 53201 [153]"}CONT}WAIT }WAIT}" 53211 [153]"(null)CONT(null)WAIT LISTAN ISSUE OF LOADSTAR COSTS $9.95 CONT(null)WAIT(null)" 53221 [153]"}CONT}WAIT }WAIT}" 53231 [153]"}CONT}WAIT LIST** THANK YOU FOR YOUR PURCHASE ** CONT}WAIT}" 53241 [153]"}CONT}WAIT }WAIT}" 53251 [153]"}CONT/```````````````````````````````````EXPWAIT}" 53261 [153]"j`````````````````````````````````````k" 53271 [153]"CONT PLEASE WAIT WHILE LOADING..":[142] 61600 [131]14,24,14,239,16,195,22,96,25,30,28,49,29,223,33,135,35,134,37,162 61700 [131]65,255,79,82,255,95,99,143,111,64,255,243 61701 [131]65,255,79,82,255,95,99,255,255,79,255,3 61702 [131]65,255,79,82,255,95,99,143,111,64,255,15 61703 [131]169,0,255,95,255,127,99,255,255,65,255,0 62000 [153]"";:[141]41180: 62001 [153]"ONONONONONONPOKEONDO YOU WISH TO RETURN TO LOADSTAR?" 62002 [153]" PLEASE SELECT (Y OR N)" 62005 [161]UG$:[139]UG$[178]""[167]62005 62006 [139]UG$[178]"Y"[167] 62100 62007 [139] UG$[178]"N" [167] 62050 62008 [137] 62005 62050 [153]"";:[141]41180:[142] 62100 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15 62101 [151]648,4:[153]"LOAD":[151]53269,[194](53269)[175]0 62102 [151]56576,([194](56576)[175]252)[176]3:[151]53272,([194](53272)[175]15)[176]16 62103 [151]53272,([194](53272)[175]240)[176]4 62105 [139]ER[179][177]63 [167] [153]"LOAD":[128] 62106 [147]"HELLO CONNECT",8,1 63000 [153]"";:[141]41180: 63001 [153]"ONONONONONONPOKEONDO YOU WISH TO RETURN TO THE MENU?" 63002 [153]" PLEASE SELECT (Y OR N)" 63005 [161]UG$:[139]UG$[178]""[167]63005 63006 [139]UG$[178]"Y"[167] 63100 63007 [139] UG$[178]"N" [167] 63050 63008 [137] 63005 63050 [153]"";:[141]41180:[142] 63100 [151]38,104:[151]39,104:[151]40,76:[151]41,126:[151]42,166:[158]38 63105 [137] 1050